home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / B2 / B2.rsrc / TEXT_1143.txt < prev    next >
Text File  |  1988-03-04  |  235b  |  6 lines
  1. ‚Äö#dragging the ghost
  2. set &Y = (mouseh+((spriteh[clickon])-&H))#registration
  3. set &Z = (mousev+((spritev[clickon])-&V))#registration
  4. IF SPRITEID[5] = 0 THEN EXIT
  5. SET SPRITEH[5] = CONSTRAINH(7,&Y)
  6. SET SPRITEV[5] = CONSTRAINV(7,&Z)√≤Àá